﻿<%
'''后台基础页面
Class AdminControllerInfo

	Private s_BaseAdmin

	'''构造
	Private Sub Class_Initialize()
		Sa.Include( ASHAPO_APP_PATH & "/Common/Controller/CommonControllerAdmin.class.asp" )
		Set s_BaseAdmin = New CommonControllerAdmin
	End Sub
	
	'''析构
	Private Sub Class_Terminate()
		Set s_BaseAdmin = Nothing
	End Sub

	'''站点信息
	Public Sub index()
		Sa.Dim("server_info")
		Set server_info = Sa.Model("CoreInfo").getSystemInfo()
		Sa.Display()
		Set server_info = Nothing
	End Sub
End Class
%>